home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / itchybugs.dxr / 00005_drop all.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  463 b   |  21 lines
  1. on exitFrame
  2.   global gGameSol
  3.   allOffStage = 1
  4.   repeat with i = 28 to 32
  5.     if i <> gGameSol then
  6.       deltaV = (16 * sprite(i).locV / 300) + random(6)
  7.       sprite(i).locV = sprite(i).locV + deltaV
  8.       if sprite(i).locV < 520 then
  9.         allOffStage = 0
  10.       end if
  11.     end if
  12.   end repeat
  13.   if allOffStage then
  14.     puppetSound("66_giggle0" & string(random(2)))
  15.     sprite(26).member = "legs"
  16.     go(the frame + 1)
  17.   else
  18.     go(the frame)
  19.   end if
  20. end
  21.